home *** CD-ROM | disk | FTP | other *** search
/ Future Workshop / Future Workshop.iso / internet / rose / scripts.z / ISTEL.SCR < prev    next >
Encoding:
Text File  |  1991-10-16  |  1.6 KB  |  50 lines
  1. !---------------------------------------------------------------------!
  2. !                                                                     !
  3. !  Copyright (c) 1991                                                 !  
  4. !  by CompuServe Incorporated, Columbus, Ohio                         !
  5. !                                                                     !
  6. !  The information in this software is subject to change without      !
  7. !  notice and should not be construed as a commitment by CompuServe.  !
  8. !                                                                     !
  9. !  ISTEL Script:                                                      !    
  10. !     Connect to Istel                                                !
  11. !     Success:  returns %Success                                      !
  12. !     Failure:  saves error msg in %FailureMsg and returns %Failure   !
  13. !                                      !
  14. !     $Revision::   1.3      $                                        1
  15. !                                      !
  16. !---------------------------------------------------------------------!
  17.  
  18. show "Connecting to ISTEL";
  19. Tries = 5;
  20. on cancel goto Return_Cancel;
  21.  
  22. Wait_Istel:
  23.  
  24.     if Tries = 0 goto Istel_Failure;
  25.     Tries = Tries - 1;
  26.  
  27.     wait
  28.         "Istel"          goto Send_Istel_Host,
  29.     "User ID:"           goto Return_Success,
  30.     "Host Name:"         goto Return_Success
  31.     until 28;
  32.  
  33.     send %CR;
  34.     goto Wait_Istel;
  35.  
  36. Send_Istel_Host:
  37.  
  38.     send "CIS" & %CR;
  39.     goto Wait_Istel;
  40.  
  41. Istel_Failure:
  42.     define %FailureMsg = "ISTEL not responding";
  43.     exit %Failure;
  44.  
  45. Return_Cancel:
  46.     exit %Cancel;
  47.  
  48. Return_Success:
  49.     exit %Success;
  50.